home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Control Panel Hide 10.xpl < prev    next >
Text File  |  1999-08-29  |  4KB  |  120 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #4"
  6. "VERSION"="1.14"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "BDE Administrator" applet"
  9. "TEXT 2"="Display "Matrox Display Properties" applet"
  10. "TEXT 3"="Display "Corel Versions Manager" applet"
  11. "TEXT 4"="Display "Symantec Live Update" applet"
  12. "TEXT 5"="Display "TweakUI" applet"
  13. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  14. "DESCRIPTION 2"="BDE Administrator is used to adjust Corel WordPerfect Office Suite 2000 database settings."
  15. "DESCRIPTION 3"="Matrox Display properties is for Matrox video card users."
  16. "DESCRIPTION 4"="Corel Versions Manager is part of Corel WordPerfect Office Suite 2000."
  17. "DESCRIPTION 5"="Symantec Live Update is used for updating Symantec products such as Norton Antivirus."
  18. "DESCRIPTION 6"="TweakUI is a program made by Microsoft.  See: http://members.aol.com/axcel216/98-3.htm#TWK98"
  19. "AUTHOR"="CptSiskoX"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  22. "COMMENT 2"="Thanks to Pierre Szwarc for the info about these Control Panel applets."
  23. "COMMENT 3"="Thanks to TeX HeX for his creativity."
  24. "COMMENT 4"="Thanks to AXCEL216 for his info about TweakUI.  See: http://members.aol.com/axcel216/98-3.htm#TWK98"
  25.  
  26.  
  27. '******************************************************************
  28. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  29. '******************************************************************
  30. sVals=""
  31. sVals2=Array("bdeadmin.cpl","mgapanel.cpl","vesrcpl.cpl","s32lucp1.cpl","tweakui.cpl")
  32. sVals3=Array("bdeadmin.cpl","mgapanel.cpl","vesrcpl.cpl","s32lucp1.cpl","tweakui.cpl")
  33. '******************************************************************
  34. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  35. '******************************************************************
  36. sPath="HKCU\Control Panel\Don't Load\"
  37. sFile="CONTROL.INI"
  38. sFileSec="Don't Load"
  39.  
  40.  
  41.  
  42. SUB Plugin_Initialize
  43.  if GetWinVer=4 then
  44.     sVals=sVals3
  45.  else
  46.     sVals=sVals2
  47.  end if
  48.  
  49.  for i=0 to UBound(sVals)
  50.      Call ReadIt(i+1,sVals(i)) 
  51.  next 
  52. END SUB
  53.  
  54. Sub ReadIt(ITM,VAL)
  55.   If GetWinVer=2 or GetWinVer=4 then
  56.  
  57.      s=RegReadValue(sPath & VAL)
  58.      if IsEmpty(s)=true then
  59.         Call SetUIElement(ITM,true)
  60.      else
  61.         Call SetUIElement(ITM,false)
  62.      end if
  63.  
  64.   else
  65.  
  66.     s=IniReadValue(sFile,sFileSec,VAL)
  67.     if len(s)>0 then
  68.        Call SetUIElement(ITM,false)
  69.     else
  70.        Call SetUIElement(ITM,true)
  71.     end if
  72.      
  73.   end if
  74.      
  75. End Sub
  76.  
  77. 'Called when the Plugin should validate the Data the user has entered
  78. SUB Plugin_CheckData(ElementIndex)
  79. END SUB
  80.  
  81. 'Called when the Plugin should apply the changes
  82. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  83.  for i=0 to UBound(sVals)
  84.      Call WriteIt(i+1,sVals(i)) 
  85.  next 
  86. END SUB
  87.  
  88. Sub WriteIt(ITM,VAL)
  89.  b=GetUIElement(ITM)
  90.  if b=true then
  91.     'Display it
  92.  
  93.     if GetWinVer=2 or GetWinVer=4 then  
  94.        s=RegReadValue(sPath & VAL)
  95.        if IsEmpty(s)=false then
  96.           Call RegDeleteValue(sPath & VAL)
  97.        end if
  98.     else
  99.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  100.     end if
  101.  
  102.  else
  103.    'Hide it
  104.    
  105.    if GetWinVer=2 or GetWinVer=4 then
  106.       Call RegWriteValue(sPath & VAL,"1",1) 
  107.    else
  108.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  109.    end if
  110.  
  111.  end if   
  112. End Sub
  113.  
  114.  
  115. 'Called when the Plugin is about to be removed from memory
  116. SUB Plugin_Terminate
  117. END SUB
  118.  
  119.  
  120.